﻿Public Class HeureTravaille

    'ID de l'employé
    Private _ID As Integer
    Public Property ID() As Integer
        Get
            Return _ID
        End Get
        Set(ByVal value As Integer)
            _ID = value
        End Set
    End Property

    'Nom de l'employé
    Private _nomEmploye As String
    Public Property NomEmploye() As String
        Get
            Return _nomEmploye
        End Get
        Set(ByVal value As String)
            _nomEmploye = value
        End Set
    End Property

    'Le jour de la plage
    Private _jour As Date
    Public Property Jour() As Date
        Get
            Return _jour
        End Get
        Set(ByVal value As Date)
            _jour = value
        End Set
    End Property

    'Durée de la plage
    Private _minute As Integer
    Public Property Minute() As Integer
        Get
            Return _minute
        End Get
        Set(ByVal value As Integer)
            _minute = value
        End Set
    End Property

    'Nom de la plage
    Private _nomPlage As String
    Public Property NomPlage() As String
        Get
            Return _nomPlage
        End Get
        Set(ByVal value As String)
            _nomPlage = value
        End Set
    End Property

    'Constructeur général
    Public Sub New()
    End Sub

    'Constructeur Durée par employé
    Public Sub New(ByVal num As Integer, ByVal nom As String, ByVal j As Date, ByVal min As Integer)
        ID = num
        NomEmploye = nom
        Jour = j
        Minute = min
    End Sub

    'Constructeur Durée par plage par employé
    Public Sub New(ByVal num As Integer, ByVal nom As String, ByVal j As Date, ByVal min As Integer, ByVal nP As String)
        ID = num
        NomEmploye = nom
        Jour = j
        Minute = min
        NomPlage = nP
    End Sub

    'Constructeur Durée par plage
    Public Sub New(ByVal min As Integer, ByVal j As Date, ByVal nP As String)
        Minute = min
        Jour = j
        NomPlage = nP
    End Sub
End Class
